home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Spaced Out / DigitalVision: Spaced Out - Disc 1.iso / pc / data / images.dxr / Internal_52_display zoomed image.ls < prev    next >
Encoding:
Text File  |  2001-10-22  |  1.5 KB  |  60 lines
  1. property pspritenum, pNumOfImages, pImageResultList, pImagePos, pImageFolder, pDelim, pCDNameFolder, pPageType
  2.  
  3. on beginSprite me
  4.   pspritenum = me.spriteNum
  5.   sprite(pspritenum).visible = 0
  6.   rootPath = getRootPath()
  7.   pImageFolder = rootPath & "Images"
  8.   pDelim = getPathDelim()
  9.   pPageType = utilsGetSection()
  10.   saveStateList = utilsGetState(pPageType)
  11.   pCDNameFolder = pDelim & saveStateList.CDname & pDelim
  12. end
  13.  
  14. on initZoomedImage me, imageCode, imageResultList
  15.   imageCode = toUpperCase(imageCode)
  16.   pImageResultList = imageResultList
  17.   pNumOfImages = pImageResultList.count
  18.   pImagePos = pImageResultList.getPos(imageCode)
  19.   me.displayImage(pImagePos)
  20. end
  21.  
  22. on previouspage me
  23.   newPage = pImagePos - 1
  24.   if newPage >= 1 then
  25.     me.displayImage(newPage)
  26.   else
  27.     beep()
  28.   end if
  29. end
  30.  
  31. on nextpage me
  32.   newPage = pImagePos + 1
  33.   if pImagePos < pNumOfImages then
  34.     me.displayImage(newPage)
  35.   else
  36.     beep()
  37.   end if
  38. end
  39.  
  40. on displayImage me, imagePos
  41.   pImagePos = imagePos
  42.   imageCode = pImageResultList[pImagePos]
  43.   member("currentimagecode").text = imageCode
  44.   cursor(4)
  45.   sprite(pspritenum).visible = 0
  46.   imagePath = pImageFolder & pDelim & imageCode & ".jpg"
  47.   member("zoomed image").fileName = imagePath
  48.   w = member("zoomed image").width / 2
  49.   h = member("zoomed image").height / 2
  50.   member("zoomed image").regPoint = point(w, h)
  51.   sprite(pspritenum).visible = 1
  52.   cursor(-1)
  53.   member("pagenum").text = pImagePos & " of " & pNumOfImages
  54.   utilsSaveState(pPageType, #imageCode, imageCode)
  55. end
  56.  
  57. on getControllerSpriteNum me
  58.   return pspritenum
  59. end
  60.